AWINXP83




ClrHome
{4,4}dim([J])
If [J](4,3)=1
Goto E
If [J](4,3)=2
Goto F
If [J](4,3)=3
Goto G
If [J](1,2)0
Then
ClrDraw
AxesOff
Text(0,0,"WINDFALL XP HAS BEEN SHUT"
Text(7,0,"DOWN TO PROTECT ITSELF"
Text(14,0,"FROM CORRUPTED DATA"
Text(21,0,"WINDFALL XP WILL REPAIR"
Text(28,0,"ITSSELF AFTER IT RESTARTS"
Text(35,0,"IF THIS CONTINUES TO POP"
Text(42,0,"UP, YOU MAY HAVE A PROGRAM"
Text(49,0,"CONFLICT OR YOU ARE"
Text(56,0,"NOT EXITING CORRECTLY"
For(X,0,3000
If getKey=105
Goto A
End
Lbl A
RectGC
CoordOn
GridOff
AxesOn
LabelOff
ExprOn
ClrHome
0[J](1,2)
Stop
End
1[J](1,2)
If [J](1,1)=0
Then
6045178P
prgmSETUP
End
AxesOff
ClrDraw
Text(1,1,"C:/UnHIde prgmBOOT"
Text(8,1,"PLease WaIt..."
23X
23Y
23Z
23
"BOOT"Str0
"ZBASLIB
Send(9prgmZASMLOAD
6045178P
prgmBOOT
6045178P
prgmICONS
6045178P
prgmTASKBAR
6045178P
47X
31Y
prgmCURSOR
Disp "ERROR!!!","CONTACT AUTHOR"
Stop
Lbl E
Line(2.765957,5.8064516,9.3617021,5.8064516
Line(9.5744681,5.483871,9.5744681,3.870968
Line(2.765957,4.193548,9.3617021,4.193548
Line(2.978723,3.870968,2.978723,5.483871
Line(2.765957,3.2258065,9.3617021,3.2258065
Line(7.8723404,3.5483871,7.8723404,5.483871
Line(8.2978723,5.1612903,9.14891362,3.870967
Line(9.1489362,5.1612913,8.2978723,3.870967
Text(14,35,"MY CALCULATOR"
Text(22,35,"WINDFALL XP"
Text(29,35,"VERSION 0.52"
Text(36,35,"BATTERY:"
If [J](1,4)20
Text(36,66,"GOOD"
If [J](1,4)35
Text(36,66,"BAD"
If [J](1,4)<35 and [J](1,4)>20
Text(36,66,"FAIR"
8S
Return
Lbl F
For(Z,33,92
Pxl-Off(12,Z
Pxl-Off(13,Z
Pxl-Off(14,Z
Pxl-Off(15,Z
Pxl-Off(16,Z
Pxl-Off(17,Z
Pxl-Off(18,Z
Pxl-Off(19,Z
Pxl-Off(20,Z
Pxl-Off(21,Z
Pxl-Off(22,Z
Pxl-Off(23,Z
Pxl-Off(24,Z
Pxl-Off(25,Z
Pxl-Off(26,Z
Pxl-Off(27,Z
Pxl-Off(28,Z
Pxl-Off(29,Z
Pxl-Off(30,Z
Pxl-Off(31,Z
Pxl-Off(32,Z
Pxl-Off(33,Z
Pxl-Off(34,Z
Pxl-Off(35,Z
Pxl-Off(36,Z
Pxl-Off(37,Z
Pxl-Off(38,Z
Pxl-Off(39,Z
Pxl-Off(40,Z
Pxl-Off(41,Z
Pxl-Off(42,Z
Pxl-Off(43,Z
Pxl-Off(44,Z
End
Pxl-On(Y,X
Pxl-On(Y+1,X
Pxl-On(Y,X+1
Pxl-On(Y+2,X
Pxl-On(Y,X+2
Pxl-On(Y+1,X+1
Pxl-On(Y+2,X+2
1S
0[J](4,3)
Return
Lbl G
22X
22Y
22Z
22
"OFF"Str0
"ZBASLIB
Send(9prgmZASMLOAD
ClrDraw
Normal
Float
Radian
Func
Connected
Sequential
Real
Full
ZStandard
RectGC
CoordOn
GridOff
AxesOn
LabelOff
ExprOn
DelVar Y
ClrHome
0[J](1,2)
Stop


BOOT


ClrHome
If P6045178
Then
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
0P
ClrHome
Normal
Float
Radian
Func
Connected
Sequential
Real
Full
RectGC
CoordOff
GridOff
AxesOff
LabelOff
ExprOff
ZStandard
ClrHome
ClrDraw
Line(10,10,10,10
Line(10,10,10,10
Line(10,10,10,10
Line(10,10,10,10
If [J](1,1)=0
Text(55,2,"WINDFALL SETUP IS PREPING"
Text(20,4,"WINDFALL XP IS BOOTING UP"
Text(27,45,"PLEASE WAIT..."
Line(7.87234,1.935484,7.8723404,1.935484
Line(7.87234,3.870968,7.8723404,3.870968
Line(8.085106,2.258065,8.085106,3.548387
Line(8.0851064,2.25865,8.0851064,3.548387
For(R,11,83
If R=11
Then
[J](1,1)A
[J](1,2)B
[J](1,3)C
[J](2,1)E
[J](2,2)F
[J](2,3)G
[J](2,4)H
XI
16X
16Y
16Z
16
""Str0
"ZBASLIB
Send(9prgmZASMLOAD
IX
DelVar I
ClrHome
Z[J](1,4)
[J](1,4)D
If D>40
Then
Text(45,15,"REPLACE BATTERIES"
Text(52,15,"WINDFALL EXITING"
1L
6045178P
prgmOFF
End
End
If R=15
Then
23X
23Y
23Z
23
"CURSOR"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=19
Then
"DOCUMENT"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=24
Then
"HELP"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=28
Then
"ICONS"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=33
Then
"PRGM"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"OFF"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"OFF2"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=37
Then
"SETTINGS"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=42
Then
"START"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=46
Then
"TASKBAR"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=51
Then
"WORD"Str0
"ZBASLIB
Send(9prgmZASMLOAD
End
If R=55
Then
89P
prgmCURSOR
prgmCUSTOM
prgmDOCUMENT
prgmICONS
prgmOFF
prgmPRGM
prgmSTART
prgmTASKBAR
prgmWORD
prgmSETTINGS
End
If X=60
Then
DelVar A
DelVar B
DelVar C
DelVar D
DelVar E
DelVar F
DelVar G
DelVar H
DelVar I
DelVar J
DelVar K
DelVar L
DelVar M
DelVar N
DelVar O
DelVar P
DelVar Q
DelVar R
DelVar S
DelVar T
DelVar U
DelVar V
DelVar W
DelVar X
DelVar Y
DelVar Z
DelVar 
DelVar Str0
DelVar Pic0
0T
1S
0M
0L
End
Pxl-On(39,R
Pxl-On(40,R
Pxl-On(41,R
End
ClrDraw
Return


CURSOR

ClrHome
If P=89
Return
If P6045178
Then
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
0P
0M
Lbl B
For(E,0,1
If E=1 and M>0
Then
YA
XB
End
Pxl-Change(A,B
Pxl-Change(A+1,B
Pxl-Change(A+2,B
Pxl-Change(A,B+1
Pxl-Change(A,B+2
Pxl-Change(A+1,B+1
Pxl-Change(A+2,B+2
End
M+1M
0T
Lbl A
getKeyG
If G=0
Goto A
Lbl J
If G=24
X-3X
If G=25
Y-3Y
If G=26
X+3X
If G=34
Y+3Y
If X>90
90X
If X<1
1X
If Y>59
59Y
If Y<1
1Y
If G=105
Goto E
Goto B
Lbl E
If S=1
Then
6045178P
If X>2 and X<21 and Y>2 and Y<18
Then
1[J](4,3)
prgmAWINXP83
End
If X>2 and X<22 and Y>19 and Y<34
prgmDOCUMENT
If X>2 and X<24 and Y>34 and Y<53
Then
A[J](3,1)
B[J](3,2)
X[J](3,3)
Y[J](3,4)
StorePic Pic0
prgmWORD
ClrDraw
RecallPic Pic0
[J](3,1)A
[J](3,2)B
[J](3,3)X
[J](3,4)Y
End
If X>0 and X<23 and Y<62 and Y>54
Then
prgmSTART
Goto B
End
If X>79 and X<92 and Y>56 and Y<60
Then
1U
prgmSETTINGS
DelVar U
Goto B
End
End
If S=2
Then
6045178P
If X>0 and X<39 and Y<62 and Y>53
Then
prgmSTART
Goto B
End
If X>38 and X<94
Then
prgmSTART
Goto B
End
If Y>0 and Y<14
Then
prgmSTART
Goto B
End
If Y>14 and Y<22 and X>0 and X<38
prgmPRGM
If Y>22 and Y<30 and X>0 and X<38
prgmDOCUMENT
If X>0 and X<38 and Y>30 and Y<38
prgmHELP
If X>0 and X<38 and Y>38 and Y<46
prgmSETTINGS
If X>0 and X<38 and Y>46 and Y<52
prgmOFF
Goto B
End
If S=5
Then
If X>38 and X<74 and Y>14 and Y21
Then
StorePic Pic1
A[J](3,1)
B[J](3,2)
X[J](3,3)
Y[J](3,4)
6045178P
prgmWORD
ClrDraw
RecallPic Pic1
[J](3,1)A
[J](3,2)B
[J](3,3)X
[J](3,4)Y
Goto A
End
If X>38 and X<74 and Y23 and Y29
Then
StorePic Pic1
A[J](3,1)
B[J](3,2)
X[J](3,3)
Y[J](3,4)
ClrDraw
1H
6045178P
prgmCUSTOM
ClrDraw
RecallPic Pic1
[J](3,1)A
[J](3,2)B
[J](3,3)X
[J](3,4)Y
Goto A
End
If X>38 and X<74 and Y31 and Y37
Then
StorePic Pic1
A[J](3,1)
B[J](3,2)
X[J](3,3)
Y[J](3,4)
ClrDraw
2H
6045178P
prgmCUSTOM
ClrDraw
RecallPic Pic1
[J](3,1)A
[J](3,2)B
[J](3,3)X
[J](3,4)Y
Goto A
End
If X>38 and X<74 and Y39 and Y74
Then
StorePic Pic1
A[J](3,1)
B[J](3,2)
X[J](3,3)
Y[J](3,4)
ClrDraw
3H
6045178P
prgmCUSTOM
ClrDraw
RecallPic Pic1
[J](3,1)A
[J](3,2)B
[J](3,3)X
[J](3,4)Y
Goto A
End
If X>38 and X<74 and Y47 and Y55
Then
StorePic Pic1
A[J](3,1)
B[J](3,2)
X[J](3,3)
Y[J](3,4)
ClrDraw
4H
6045178P
prgmCUSTOM
ClrDraw
RecallPic Pic1
[J](3,1)A
[J](3,2)B
[J](3,3)X
[J](3,4)Y
Goto A
End
1L
6045178P
prgmPRGM
End
If S=4
Then
If X>42 and X<71 and Y>26 and Y<36
Then
5L
prgmOFF
Goto B
End
If X>44 and X<52 and Y>15 and Y<26
Then
1L
prgmOFF
Goto B
End
If X>60 and X<68 and Y>15 and Y<24
Then
4L
prgmOFF
Goto B
End
If X>76 and X<87 and Y>15 and Y<25
Then
2L
prgmOFF
Goto B
End
End
If S=8 and X>83 and X<92 and Y>12 and Y<22
Then
2[J](4,3)
prgmAWINXP83
End
Goto B

ICONS

If P=89
Return
If P6045178
Then
ClrHome
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
Line(10,10,10,10
Line(10,10,10,10
Line(10,10,10,10
Line(10,10,10,10
Pxl-On(5,3
Pxl-On(6,3
Pxl-On(7,3
Pxl-On(8,3
Pxl-On(9,3
Pxl-On(10,3
Pxl-On(4,4
Pxl-On(5,4
Pxl-On(3,4
Pxl-On(4,9
Pxl-On(7,4
Pxl-On(6,4
Pxl-On(3,10
Pxl-On(8,4
Pxl-On(9,4
Pxl-On(10,4
Pxl-On(11,4
Pxl-On(3,4
Pxl-On(3,5
Pxl-On(3,6
Pxl-On(3,7
Pxl-On(3,8
Pxl-On(3,9
Pxl-On(4,3
Pxl-On(4,4
Pxl-On(4,5
Pxl-On(4,6
Pxl-On(4,7
Pxl-On(4,8
Pxl-On(4,11
Pxl-On(4,10
Pxl-On(5,11
Pxl-On(5,10
Pxl-On(6,11
Pxl-On(6,10
Pxl-On(7,11
Pxl-On(7,10
Pxl-On(8,11
Pxl-On(8,10
Pxl-On(9,11
Pxl-On(9,10
Pxl-On(10,11
Pxl-On(10,10
Pxl-On(11,10
Pxl-On(11,9
Pxl-On(11,8
Pxl-On(11,7
Pxl-On(11,6
Pxl-On(11,5
Pxl-On(10,9
Pxl-On(10,8
Pxl-On(10,7
Pxl-On(10,6
Pxl-On(10,5
Pxl-On(12,6
Pxl-On(12,7
Pxl-On(12,8
Pxl-On(13,6
Pxl-On(13,7
Pxl-On(13,8
Pxl-On(14,5
Pxl-On(14,6
Pxl-On(14,7
Pxl-On(14,8
Pxl-On(14,9
Pxl-On(15,4
Pxl-On(15,5
Pxl-On(15,6
Pxl-On(15,7
Pxl-On(15,8
Pxl-On(15,9
Pxl-On(15,10
Pxl-On(16,3
Pxl-On(16,4
Pxl-On(16,5
Pxl-On(16,6
Pxl-On(16,7
Pxl-On(16,8
Pxl-On(16,9
Pxl-On(16,10
Pxl-On(16,11
Pxl-On(5,14
Pxl-On(5,15
Pxl-On(5,16
Pxl-On(5,17
Pxl-On(5,18
Pxl-On(6,13
Pxl-On(6,19
Pxl-On(7,13
Pxl-On(7,19
Pxl-On(7,15
Pxl-On(7,16
Pxl-On(7,17
Pxl-On(8,13
Pxl-On(8,19
Pxl-On(8,15
Pxl-On(8,16
Pxl-On(8,17
Pxl-On(9,13
Pxl-On(9,19
Pxl-On(10,13
Pxl-On(10,19
Pxl-On(11,13
Pxl-On(11,19
Pxl-On(11,15
Pxl-On(11,16
Pxl-On(12,13
Pxl-On(12,19
Pxl-On(13,13
Pxl-On(13,19
Pxl-On(14,13
Pxl-On(14,16
Pxl-On(14,19
Pxl-On(15,13
Pxl-On(15,19
Pxl-On(15,13
Pxl-On(15,19
Pxl-On(15,13
Pxl-On(15,19
Pxl-On(16,14
Pxl-On(16,15
Pxl-On(16,16
Pxl-On(16,17
Pxl-On(16,18
Pxl-On(21,5
Pxl-On(21,6
Pxl-On(21,7
Pxl-On(21,8
Pxl-On(21,9
Pxl-On(20,13
Pxl-On(20,14
Pxl-On(20,15
Pxl-On(20,16
Pxl-On(20,17
Pxl-On(21,12
Pxl-On(21,13
Pxl-On(21,14
Pxl-On(21,18
Pxl-On(22,12
Pxl-On(22,13
Pxl-On(22,18
Pxl-On(23,12
Pxl-On(23,18
Pxl-On(24,12
Pxl-On(24,14
Pxl-On(24,15
Pxl-On(24,16
Pxl-On(24,18
Pxl-On(25,12
Pxl-On(25,18
Pxl-On(26,12
Pxl-On(26,14
Pxl-On(26,15
Pxl-On(26,16
Pxl-On(26,18
Pxl-On(27,12
Pxl-On(27,18
Pxl-On(28,12
Pxl-On(28,14
Pxl-On(28,15
Pxl-On(28,16
Pxl-On(28,18
Pxl-On(29,12
Pxl-On(29,18
Pxl-On(30,14
Pxl-On(30,15
Pxl-On(30,16
Pxl-On(30,17
Pxl-On(30,13
Pxl-On(32,19
Pxl-On(32,18
Pxl-On(32,17
Pxl-On(32,16
Pxl-On(32,15
Pxl-On(32,14
Pxl-On(32,13
Pxl-On(32,12
Pxl-On(32,11
Pxl-On(32,10
Pxl-On(32,9
Pxl-On(32,8
Pxl-On(32,7
Pxl-On(32,6
Pxl-On(32,5
Pxl-On(32,4
Pxl-On(31,3
Pxl-On(31,20
Pxl-On(30,3
Pxl-On(30,20
Pxl-On(29,3
Pxl-On(29,20
Pxl-On(28,3
Pxl-On(28,20
Pxl-On(27,3
Pxl-On(27,20
Pxl-On(26,3
Pxl-On(26,20
Pxl-On(25,3
Pxl-On(25,20
Pxl-On(24,3
Pxl-On(24,20
Pxl-On(23,4
Pxl-On(23,5
Pxl-On(23,6
Pxl-On(23,7
Pxl-On(23,8
Pxl-On(23,9
Pxl-On(23,10
Pxl-On(23,11
Pxl-On(23,19
Pxl-On(22,4
Pxl-On(22,10
Pxl-On(36,4
Pxl-On(36,5
Pxl-On(36,6
Pxl-On(36,7
Pxl-On(36,8
Pxl-On(36,9
Pxl-On(36,10
Pxl-On(36,11
Pxl-On(36,12
Pxl-On(36,13
Pxl-On(36,14
Pxl-On(36,15
Pxl-On(36,16
Pxl-On(36,17
Pxl-On(36,18
Pxl-On(36,19
Pxl-On(36,20
Pxl-On(37,3
Pxl-On(37,21
Pxl-On(38,3
Pxl-On(38,21
Pxl-On(39,3
Pxl-On(39,21
Pxl-On(40,3
Pxl-On(40,21
Pxl-On(41,3
Pxl-On(41,21
Pxl-On(42,3
Pxl-On(42,21
Pxl-On(43,3
Pxl-On(43,21
Pxl-On(44,3
Pxl-On(44,21
Pxl-On(45,3
Pxl-On(45,21
Pxl-On(46,3
Pxl-On(46,21
Pxl-On(47,3
Pxl-On(47,21
Pxl-On(48,3
Pxl-On(48,21
Pxl-On(49,3
Pxl-On(49,21
Pxl-On(50,3
Pxl-On(50,21
Pxl-On(51,3
Pxl-On(51,21
Pxl-On(52,4
Pxl-On(52,5
Pxl-On(52,6
Pxl-On(52,7
Pxl-On(52,8
Pxl-On(52,9
Pxl-On(52,10
Pxl-On(52,11
Pxl-On(52,12
Pxl-On(52,13
Pxl-On(52,14
Pxl-On(52,15
Pxl-On(52,16
Pxl-On(52,17
Pxl-On(52,18
Pxl-On(52,19
Pxl-On(52,20
Pxl-On(38,5
Pxl-On(39,5
Pxl-On(38,6
Pxl-On(39,6
Pxl-On(39,7
Pxl-On(40,6
Pxl-On(40,7
Pxl-On(41,6
Pxl-On(41,7
Pxl-On(42,6
Pxl-On(42,7
Pxl-On(43,6
Pxl-On(43,7
Pxl-On(44,6
Pxl-On(44,7
Pxl-On(45,6
Pxl-On(45,7
Pxl-On(46,6
Pxl-On(46,7
Pxl-On(47,6
Pxl-On(47,7
Pxl-On(48,6
Pxl-On(48,7
Pxl-On(49,6
Pxl-On(49,7
Pxl-On(50,7
Pxl-On(38,19
Pxl-On(38,18
Pxl-On(39,19
Pxl-On(39,18
Pxl-On(39,17
Pxl-On(40,18
Pxl-On(40,17
Pxl-On(41,18
Pxl-On(41,17
Pxl-On(42,18
Pxl-On(42,17
Pxl-On(43,18
Pxl-On(43,17
Pxl-On(44,18
Pxl-On(44,17
Pxl-On(45,18
Pxl-On(45,17
Pxl-On(46,18
Pxl-On(46,17
Pxl-On(47,18
Pxl-On(47,17
Pxl-On(48,18
Pxl-On(48,17
Pxl-On(49,18
Pxl-On(49,17
Pxl-On(50,17
Pxl-On(39,12
Pxl-On(40,11
Pxl-On(40,12
Pxl-On(40,13
Pxl-On(41,11
Pxl-On(41,12
Pxl-On(41,13
Pxl-On(42,11
Pxl-On(42,12
Pxl-On(42,13
Pxl-On(43,11
Pxl-On(43,12
Pxl-On(43,13
Pxl-On(44,11
Pxl-On(44,12
Pxl-On(44,13
Pxl-On(45,11
Pxl-On(45,12
Pxl-On(45,13
Pxl-On(46,11
Pxl-On(46,12
Pxl-On(46,13
Pxl-On(48,8
Pxl-On(49,8
Pxl-On(48,16
Pxl-On(49,16
Pxl-On(48,9
Pxl-On(47,9
Pxl-On(48,15
Pxl-On(47,15
Pxl-On(47,10
Pxl-On(46,10
Pxl-On(47,14
Pxl-On(46,14
Pxl-On(46,11
Pxl-On(45,11
Pxl-On(46,13
Pxl-On(45,13
Pxl-On(45,12
Pxl-On(44,12
Pxl-On(45,12
Pxl-On(44,12
1S


OFF


If P=89
Return
If P6045178
Then
ClrHome
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
0P
If L=0
Goto A
If L=1
Goto B
If L=2
Goto C
If L=4
Goto D
If L=5
Goto E
If L=6
Goto F
Lbl E
For(I,43,88
Pxl-Off(14,I
Pxl-Off(15,I
Pxl-Off(16,I
Pxl-Off(17,I
Pxl-Off(18,I
Pxl-Off(19,I
Pxl-Off(20,I
Pxl-Off(21,I
Pxl-Off(22,I
Pxl-Off(23,I
Pxl-Off(24,I
Pxl-Off(25,I
Pxl-Off(26,I
Pxl-Off(27,I
Pxl-Off(28,I
Pxl-Off(29,I
Pxl-Off(30,I
Pxl-Off(31,I
Pxl-Off(32,I
Pxl-Off(33,I
Pxl-Off(34,I
Pxl-Off(35,I
End
Pxl-On(Y,X
Pxl-On(Y+1,X
Pxl-On(Y+2,X
Pxl-On(Y,X+1
Pxl-On(Y,X+2
Pxl-On(Y+1,X+1
Pxl-On(Y+2,X+2
0L
2S
Return
Lbl A
Line(.6382979,5.483871,8.5106383,5.483871
Line(8.7234043,5.1612903,8.7234043,.9677419
Line(8.5106383,1.290323,.6382979,1.290323
Line(.85106,5.1612903,.8510638,.9677419
Line(.6382979,1.2903226,4.6808511,1.2903226
Line(4.893617,.96774194,4.893617,.9677419
Text(28,45,"CANCEL"
Pxl-On(16,45
Pxl-On(16,46
Pxl-On(16,47
Pxl-On(16,48
Pxl-On(16,49
Pxl-On(16,50
Pxl-On(16,51
Pxl-On(17,45
Pxl-On(17,51
Pxl-On(18,45
Pxl-On(18,51
Pxl-On(18,47
Pxl-On(18,49
Pxl-On(19,45
Pxl-On(19,51
Pxl-On(20,45
Pxl-On(20,51
Pxl-On(20,47
Pxl-On(20,49
Pxl-On(21,45
Pxl-On(21,51
Pxl-On(22,45
Pxl-On(22,51
Pxl-On(22,49
Pxl-On(23,45
Pxl-On(23,51
Pxl-On(24,45
Pxl-On(24,51
Pxl-On(25,45
Pxl-On(25,46
Pxl-On(25,47
Pxl-On(25,48
Pxl-On(25,49
Pxl-On(25,50
Pxl-On(25,51
Pxl-On(16,63
Pxl-On(16,64
Pxl-On(16,65
Pxl-On(17,62
Pxl-On(17,66
Pxl-On(18,61
Pxl-On(18,64
Pxl-On(18,67
Pxl-On(19,61
Pxl-On(19,64
Pxl-On(19,67
Pxl-On(20,61
Pxl-On(20,64
Pxl-On(20,67
Pxl-On(21,61
Pxl-On(21,64
Pxl-On(21,67
Pxl-On(22,62
Pxl-On(22,66
Pxl-On(23,63
Pxl-On(23,64
Pxl-On(23,65
Line(6.5957447,4.8387097,8.0851064,4.8387097
Line(6.3829787,4.516129,6.3829787,2.5806452
Line(6.5957447,2.2580645,8.0851064,2.2580645
Line(8.2903226,2.5806452,8.2903226,4.516129
Pxl-On(19,79
Pxl-On(20,79
Pxl-On(21,79
Pxl-On(22,79
Pxl-On(20,80
Pxl-On(21,80
Pxl-On(21,81
Pxl-On(21,82
Pxl-On(21,83
Pxl-On(20,84
Pxl-On(21,84
Pxl-On(22,84
6045178P
4S
Return
Lbl B
ClrDraw
Line(10,2,10,2
Text(20,10,"WINDFALL XP IS"
Text(30,10,"RETURNING TO TI-COS"
22X
22Y
22Z
22
"BOOT"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"CURSOR"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"DOCUMENT"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"HELP"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"ICONS"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"OFF2"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"PRGM"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"SETTINGS"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"START"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"TASKBAR"Str0
"ZBASLIB
Send(9prgmZASMLOAD
"WORD"Str0
"ZBASLIB
Send(9prgmZASMLOAD
DelVar A
DelVar B
DelVar C
DelVar D
DelVar E
DelVar F
DelVar G
DelVar H
DelVar I
DelVar J
DelVar K
DelVar L
DelVar M
DelVar N
DelVar O
DelVar P
DelVar Q
DelVar R
DelVar S
DelVar T
DelVar U
DelVar V
DelVar W
DelVar X
DelVar Y
DelVar Z
DelVar 
DelVar Pic0
DelVar L
DelVar L
DelVar L
DelVar L
DelVar L
DelVar L
DelVar [A]
DelVar [B]
DelVar [C]
DelVar [D]
DelVar [E]
DelVar [F]
DelVar [G]
DelVar [H]
DelVar [I]
DelVar Str0
0[J](3,1)
0[J](3,2)
0[J](3,3)
0[J](3,4)
0[J](4,1)
ClrDraw
Normal
Float
Radian
Func
Connected
Sequential
Real
Full
ZStandard
RectGC
CoordOn
GridOff
AxesOn
LabelOff
ExprOn
ClrHome
0[J](1,2)
DelVar Y
3[J](4,3)
prgmAWINXP83
Lbl C
StorePic Pic0
ClrDraw
Text(20,10,"WINDFALL XP"
Text(30,10,"IS HIBERNATING..."
X[J](3,1)
Y[J](3,2)
A[J](3,3)
B[J](3,4)
S[J](4,1)
Line(10,2,10,2
For(O,0,2000
End
ClrDraw
Send(9prgmOFF2
ClrDraw
ClrHome
RecallPic Pic0
[J](3,1)X
[J](3,2)Y
[J](3,3)A
[J](3,4)B
[J](4,1)S
6045178P
Return
Lbl D
ClrDraw
Text(20,10,"WINDFALL XP"
Text(30,10,"IS SHUTTING DOWN..."
Line(10,2,10,2
For(X,0,5000
End
0[J](1,2)
Send(9prgmOFF2
ClrHome
ClrDraw
prgmAWINXP83
Lbl F
StorePic Pic1
ClrDraw
Text(0,0,"STANDBY...  PRESS ENTER"
Pause 
ClrDraw
RecallPic Pic1
0L
0C
Return



PRGM



If P=89
Return
If P6045178
Then
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
0P
If L=1
Goto F
Line(1.914894,5.483871,5.531949,5.483871
Line(5.7446809,5.1612903,5.7446809,7.096775
Line(1.914894,2.9032258,5.5319149,2.9032258
Line(1.914894,.32258065,5.5319149,.32258065
Line(1.914894,2.258065,5.5319149,2.258065
Line(1.914894,4.83871,5.5319149,4.83871
Text(15,40,"MS   WORD"
45P
prgmCUSTOM
5S
Return
Lbl F
For(O,39,74
Pxl-Off(14,O
Pxl-Off(15,O
Pxl-Off(16,O
Pxl-Off(17,O
Pxl-Off(18,O
Pxl-Off(19,O
Pxl-Off(20,O
Pxl-Off(21,O
Pxl-Off(22,O
Pxl-Off(23,O
Pxl-Off(24,O
Pxl-Off(25,O
Pxl-Off(26,O
Pxl-Off(27,O
Pxl-Off(28,O
Pxl-Off(29,O
Pxl-Off(30,O
Pxl-Off(31,O
Pxl-Off(32,O
Pxl-Off(33,O
Pxl-Off(34,O
Pxl-Off(35,O
Pxl-Off(36,O
Pxl-Off(37,O
Pxl-Off(38,O
Pxl-Off(39,O
Pxl-Off(40,O
Pxl-Off(41,O
Pxl-Off(42,O
Pxl-Off(43,O
Pxl-Off(44,O
Pxl-Off(45,O
Pxl-Off(46,O
Pxl-Off(47,O
Pxl-Off(48,O
Pxl-Off(49,O
Pxl-Off(50,O
Pxl-Off(51,O
Pxl-Off(52,O
Pxl-Off(53,O
End
0L
2S
Return



SETUP



If P6045178
Then
ClrHome
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
6045178P
prgmBOOT
ClrDraw
Line(10,10,10,10
Line(10,10,10,10
Line(10,10,10,10
Line(10,10,10,10
Pxl-On(5,31
Pxl-On(5,32
Pxl-On(5,33
Pxl-On(6,31
Pxl-On(6,32
Pxl-On(6,33
Pxl-On(9,31
Pxl-On(9,32
Pxl-On(9,33
Pxl-On(10,31
Pxl-On(10,32
Pxl-On(10,33
Pxl-On(13,31
Pxl-On(13,32
Pxl-On(13,33
Pxl-On(14,31
Pxl-On(14,32
Pxl-On(14,33
Pxl-On(6,34
Pxl-On(6,35
Pxl-On(6,36
Pxl-On(7,34
Pxl-On(7,35
Pxl-On(7,36
Pxl-On(10,34
Pxl-On(10,35
Pxl-On(10,36
Pxl-On(11,34
Pxl-On(11,35
Pxl-On(11,36
Pxl-On(14,34
Pxl-On(14,35
Pxl-On(14,36
Pxl-On(15,34
Pxl-On(15,35
Pxl-On(15,36
Pxl-On(5,37
Pxl-On(5,38
Pxl-On(5,39
Pxl-On(6,37
Pxl-On(6,38
Pxl-On(6,39
Pxl-On(9,37
Pxl-On(9,38
Pxl-On(9,39
Pxl-On(10,37
Pxl-On(10,38
Pxl-On(10,39
Pxl-On(13,37
Pxl-On(13,38
Pxl-On(13,39
Pxl-On(14,37
Pxl-On(14,38
Pxl-On(14,39
Pxl-On(5,41
Pxl-On(5,42
Pxl-On(6,41
Pxl-On(6,42
Pxl-On(7,41
Pxl-On(7,42
Pxl-On(8,41
Pxl-On(8,42
Pxl-On(9,41
Pxl-On(9,42
Pxl-On(10,41
Pxl-On(10,42
Pxl-On(11,41
Pxl-On(11,42
Pxl-On(12,41
Pxl-On(12,42
Pxl-On(13,41
Pxl-On(13,42
Pxl-On(14,41
Pxl-On(14,42
Pxl-On(13,43
Pxl-On(14,43
Pxl-On(12,44
Pxl-On(13,44
Pxl-On(5,45
Pxl-On(5,46
Pxl-On(6,45
Pxl-On(6,46
Pxl-On(7,45
Pxl-On(7,46
Pxl-On(8,45
Pxl-On(8,46
Pxl-On(9,45
Pxl-On(9,46
Pxl-On(10,45
Pxl-On(10,46
Pxl-On(11,45
Pxl-On(11,46
Pxl-On(12,45
Pxl-On(12,46
Pxl-On(13,45
Pxl-On(13,46
Pxl-On(14,45
Pxl-On(14,46
Pxl-On(12,47
Pxl-On(13,47
Pxl-On(13,48
Pxl-On(14,48
Pxl-On(5,50
Pxl-On(5,49
Pxl-On(6,50
Pxl-On(6,49
Pxl-On(7,50
Pxl-On(7,49
Pxl-On(8,50
Pxl-On(8,49
Pxl-On(9,50
Pxl-On(9,49
Pxl-On(10,49
Pxl-On(10,50
Pxl-On(11,49
Pxl-On(11,50
Pxl-On(12,49
Pxl-On(12,50
Pxl-On(13,49
Pxl-On(13,50
Pxl-On(14,49
Pxl-On(14,50
Pxl-On(5,52
Pxl-On(5,53
Pxl-On(5,54
Pxl-On(6,52
Pxl-On(6,53
Pxl-On(6,54
Pxl-On(9,52
Pxl-On(9,53
Pxl-On(9,54
Pxl-On(10,52
Pxl-On(10,53
Pxl-On(10,54
Pxl-On(13,52
Pxl-On(13,53
Pxl-On(13,54
Pxl-On(14,52
Pxl-On(14,53
Pxl-On(14,54
Pxl-On(6,55
Pxl-On(6,56
Pxl-On(6,57
Pxl-On(7,55
Pxl-On(7,56
Pxl-On(7,57
Pxl-On(10,55
Pxl-On(10,56
Pxl-On(10,57
Pxl-On(11,55
Pxl-On(11,56
Pxl-On(11,57
Pxl-On(14,55
Pxl-On(14,56
Pxl-On(14,57
Pxl-On(15,55
Pxl-On(15,56
Pxl-On(15,57
Pxl-On(5,58
Pxl-On(5,59
Pxl-On(5,60
Pxl-On(6,58
Pxl-On(6,59
Pxl-On(6,60
Pxl-On(9,58
Pxl-On(9,59
Pxl-On(9,60
Pxl-On(10,58
Pxl-On(10,59
Pxl-On(10,60
Pxl-On(13,58
Pxl-On(13,59
Pxl-On(13,60
Pxl-On(14,58
Pxl-On(14,59
Pxl-On(14,60
Line(10,4,10,4
Text(20,17,"WINDFALL XP SETUP"

2X
1D
Text(27,2,"ENTER A USER PASSWORD"
Text(33,2,"PRESS [ENTER] FOR NONE"
Lbl D
If X>90
Then
If getKey=105
Goto K
Goto D
End
getKeyG
If G=0
Then
Pxl-Change(46,X
Pxl-Change(46,X+1
Pxl-Change(46,X+2
For(Y,0,100
End
Goto D
End
If G=105
Goto K
If G=22
Then
prgmQUIT
Goto D
End
If G=45
Then
1D
2X
For(Y,1,93
Pxl-Off(41,Y
Pxl-Off(42,Y
Pxl-Off(43,Y
Pxl-Off(44,Y
Pxl-Off(45,Y
End
Pxl-On(42,X
Pxl-On(43,X
Pxl-On(44,X
Pxl-On(41,X+1
Pxl-On(42,X+1
Pxl-On(43,X+1
Pxl-On(44,X+1
Pxl-On(45,X+1
Pxl-On(41,X+2
Pxl-On(42,X+2
Pxl-On(43,X+2
Pxl-On(44,X+2
Pxl-On(45,X+2
Pxl-On(41,X+3
Pxl-On(42,X+3
Pxl-On(43,X+3
Pxl-On(44,X+3
Pxl-On(45,X+3
Pxl-On(42,X+4
Pxl-On(43,X+4
Pxl-On(44,X+4
Pxl-Off(46,X
Pxl-Off(46,X+1
Pxl-Off(46,X+2
D*GD
X+6X
Goto D
Lbl K
D[J](4,4)
For(X,1,93
Pxl-Off(27,X
Pxl-Off(28,X
Pxl-Off(29,X
Pxl-Off(30,X
Pxl-Off(31,X
Pxl-Off(32,X
Pxl-Off(33,X
Pxl-Off(34,X
Pxl-Off(35,X
Pxl-Off(36,X
Pxl-Off(37,X
Pxl-Off(38,X
Pxl-Off(39,X
Pxl-Off(40,X
Pxl-Off(41,X
Pxl-Off(42,X
Pxl-Off(43,X
Pxl-Off(44,X
Pxl-Off(45,X
Pxl-Off(46,X
End
If D=1
Goto P
Text(27,2,"DO YOU WANT WINDFALL XP"
Text(33,2,"TO BE PASSWORD PROTECTED?"
Text(39,2,"(Y/N)"
Lbl O
getKeyG
If G=71
Then
0[J](1,3)
Goto Y
End
If G=92
Then
1[J](1,3)
Goto Y
End
If G=22
prgmQUIT
Goto O
Lbl Y
For(X,1,93
Pxl-Off(45,X
Pxl-Off(44,X
Pxl-Off(43,X
Pxl-Off(42,X
Pxl-Off(41,X
Pxl-Off(40,X
Pxl-Off(39,X
Pxl-Off(38,X
Pxl-Off(37,X
Pxl-Off(36,X
Pxl-Off(35,X
Pxl-Off(34,X
Pxl-Off(33,X
Pxl-Off(32,X
Pxl-Off(31,X
Pxl-Off(30,X
Pxl-Off(29,X
Pxl-Off(28,X
Pxl-Off(27,X
End
Lbl P
Text(26,2,"WHAT TYPE OF SCREEN"
Text(32,2,"SAVER WOULD YOU LIKE"
Text(38,2,"1)  NONE"
Text(44,2,"2)  MYSTIFY"
Text(50,2,"3)  BOUNCING BALL"
Text(56,2,"4)  BLANK"
Lbl T
getKeyG
If G=92
9[J](2,1)
If G=93
8[J](2,1)
If G=94
7[J](2,1)
If G=82
6[J](2,1)
If G=22
Then
prgmQUIT
Goto T
End
If G=92 or G=93 or G=94 or G=82
Goto Z
Goto T
Lbl Z
For(X,1,72
Pxl-Off(27,X
Pxl-Off(28,X
Pxl-Off(29,X
Pxl-Off(30,X
Pxl-Off(31,X
Pxl-Off(32,X
Pxl-Off(33,X
Pxl-Off(34,X
Pxl-Off(35,X
Pxl-Off(36,X
Pxl-Off(37,X
Pxl-Off(38,X
Pxl-Off(39,X
Pxl-Off(40,X
Pxl-Off(41,X
Pxl-Off(42,X
Pxl-Off(43,X
Pxl-Off(44,X
Pxl-Off(45,X
Pxl-Off(46,X
Pxl-Off(47,X
Pxl-Off(48,X
Pxl-Off(49,X
Pxl-Off(50,X
Pxl-Off(51,X
Pxl-Off(52,X
Pxl-Off(53,X
Pxl-Off(54,X
Pxl-Off(55,X
Pxl-Off(56,X
Pxl-Off(57,X
Pxl-Off(58,X
Pxl-Off(59,X
Pxl-Off(60,X
Pxl-Off(61,X
End
1[J](1,1)
Text(27,2,"RESTARTING YOUR SYSTEM..."
Text(33,2,"YOU MAY DELETE SETUP AND"
Text(39,2,"QUIT AFTER YOU EXIT"
Line(8,5,8,5
Line(8,8,8,8
Line(8,5,8,8
Line(8,5,8,8
For(X,11,83
Pxl-On(48,X
Pxl-On(49,X
Pxl-On(50,X
Pxl-On(51,X
Pxl-On(52,X
Pxl-On(53,X
Pxl-On(54,X
For(Y,0,50
End
End
Return



START


ClrHome
If P=89
Return
If P6045178
Then
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
If T=1
Then
14K
Lbl P
Pxl-Off(K,1
Pxl-Off(K,2
Pxl-Off(K,3
Pxl-Off(K,4
Pxl-Off(K,5
Pxl-Off(K,6
Pxl-Off(K,7
Pxl-Off(K,8
Pxl-Off(K,9
Pxl-Off(K,10
Pxl-Off(K,11
Pxl-Off(K,12
Pxl-Off(K,13
Pxl-Off(K,14
Pxl-Off(K,15
Pxl-Off(K,16
Pxl-Off(K,17
Pxl-Off(K,18
Pxl-Off(K,19
Pxl-Off(K,20
Pxl-Off(K,21
Pxl-Off(K,22
Pxl-Off(K,23
Pxl-Off(K,24
Pxl-Off(K,25
Pxl-Off(K,26
Pxl-Off(K,27
Pxl-Off(K,28
Pxl-Off(K,29
Pxl-Off(K,30
Pxl-Off(K,31
Pxl-Off(K,32
Pxl-Off(K,33
Pxl-Off(K,34
Pxl-Off(K,35
Pxl-Off(K,36
Pxl-Off(K,37
Pxl-Off(K,38
K+1K
If K=54
Then
prgmICONS
0T
Return
End
Goto P
End
1T
53K
Lbl A
Pxl-On(K,1
Pxl-Off(K,2
Pxl-Off(K,3
Pxl-Off(K,4
Pxl-Off(K,5
Pxl-Off(K,6
Pxl-Off(K,7
Pxl-Off(K,8
Pxl-Off(K,9
Pxl-Off(K,10
Pxl-Off(K,11
Pxl-Off(K,12
Pxl-Off(K,13
Pxl-Off(K,14
Pxl-Off(K,15
Pxl-Off(K,16
Pxl-Off(K,17
Pxl-Off(K,18
Pxl-Off(K,19
Pxl-Off(K,20
Pxl-Off(K,21
Pxl-Off(K,22
Pxl-Off(K,23
Pxl-Off(K,24
Pxl-Off(K,25
Pxl-Off(K,26
Pxl-Off(K,27
Pxl-Off(K,28
Pxl-Off(K,29
Pxl-Off(K,30
Pxl-Off(K,31
Pxl-Off(K,32
Pxl-Off(K,33
Pxl-Off(K,34
Pxl-Off(K,35
Pxl-Off(K,36
Pxl-Off(K,37
Pxl-On(K,38
K-1K
If K14
Goto A
Line(9.574468,4.83871,2.12766,4.83871
Text(47,3,"TURN OFF"
Line(9.574468,2.258065,2.12766,2.258065
Text(39,3,"SETTINGS"
Line(9.574468,.32258065,2.12766,.32258065
Text(31,3,"HELP"
Line(9.574468,2.9032258,2.12766,2.9032258
Text(23,3,"DOCUMENT"
Line(9.574468,5.483871,2.12766,5.483871
Text(15,3,"PROGRAMS"
2S
Return



TASKBAR



If P=89
Return
If P6045178
Then
ClrHome
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
Line(10,7.41,10,7.41
Line(10,10,10,10
Text(55,2,"START"
Pxl-On(55,22
Pxl-On(56,22
Pxl-On(57,23
Pxl-On(58,23
Pxl-On(59,23
Pxl-On(60,22
Pxl-On(61,22
For(X,23,80,2
Pxl-On(61,X
Pxl-On(60,X+1
Pxl-On(59,X
Pxl-On(58,X+1
Pxl-On(57,X
Pxl-On(56,X+1
Pxl-On(55,X
End
Line(7.0212766,8.064516,9.1489362,8.064516
Line(7.0212766,8.064516,7.0212766,9.354839
Line(7.0212766,9.354839,9.1489362,9.354839
Line(9.1489362,9.354839,9.1489362,8.064516
Pxl-On(57,91
Pxl-On(58,91
Pxl-On(59,91
For(X,81,93,2
Pxl-On(55,X
Pxl-On(61,X
End
Pxl-On(56,92
Pxl-On(58,92
Pxl-On(60,92
Pxl-On(57,93
Pxl-On(59,93
If D30
Then
Pxl-On(57,81
Pxl-On(58,81
Pxl-On(59,81
End
If D28
Then
Pxl-On(57,82
Pxl-On(58,82
Pxl-On(59,82
End
If D26
Then
Pxl-On(57,83
Pxl-On(58,83
Pxl-On(59,83
End
If D24
Then
Pxl-On(57,84
Pxl-On(58,84
Pxl-On(59,84
End
If D22
Then
Pxl-On(57,85
Pxl-On(58,85
Pxl-On(59,85
End
If D20
Then
Pxl-On(57,86
Pxl-On(58,86
Pxl-On(59,86
End
If D18
Then
Pxl-On(57,87
Pxl-On(58,87
Pxl-On(59,87
End
If D16
Then
Pxl-On(57,88
Pxl-On(58,88
Pxl-On(59,88
End
If D14
Then
Pxl-On(57,89
Pxl-On(58,89
Pxl-On(59,89
End
Return



WORD



ClrHome
If P=89
Return
If P6045178
Then
Disp "THIS PROGRAM","REQUIRES","WINDFALL XP"
Pause 
ClrHome
Stop
End
ClrDraw
0P
Line(10,7,10,7

